home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00203.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  487 b   |  23 lines
  1. on mouseUp
  2.   global setall
  3.   sound stop 1
  4.   sound stop 2
  5.   puppetSound(0)
  6.   puppetSound("click2")
  7.   updateStage()
  8.   if the soundBusy of 1 then
  9.     repeat while the soundBusy of 1
  10.     end repeat
  11.   end if
  12.   puppetSound(0)
  13.   set stemp to the name of cast the castNum of sprite 24
  14.   set setall to 1 - value(char 4 of stemp)
  15.   set the castNum of sprite 24 to the number of cast ("all" & setall)
  16.   if setall = 1 then
  17.     go("setall")
  18.     setalllevels()
  19.   else
  20.     go("setsingle")
  21.   end if
  22. end
  23.